•1- 
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Artificial Intelligence Project Memorandum MAC-M-133 (Revised) 

Memo 67 (Revised) 

REVISED USER'S VERSION 
Time Sharing LISP 

by William Martin add flmothy Hart 

1* Introduction 

This memo describes changes to the LISP system by several people • The 
changes reduce printout and give the ussr more control over it* They also 
make it possible for LISP to coamsnicatt with the teletype and the disk. 
The last sections describe programs available in the public files which are 
useful for printing, editing, and debugging LISP functions. 

This system and the supporting programs allow the user to quickly assemble 
that combination of functions and data ie*>de& for a particular job. This 
makes it unnecessary to keep duplicate copies of functions in different com- 
binations. The writing of functions to handle rare cases can be postponed 
by intercepting calls to these functions with breakpoints • Breakpoints are 
also useful for restricting recursion daring debugging and to avoid a long 
trace printout before an error conditio i* which is known but not understood, 
is reached. Certain errors in syntax will be found by the print program and 
most conceptual errors are readily corrected with the edit program* 
2„ CTSS Command 

LISP X This command will cause the LISP system to read 

and evaluate file x DATA. If x is not supplied, 
the system will read LISP DATA A convenient way 
to operate is to let file LISP DATA contain the 
single pair LISTEN NIL followed by STOP, LISTEN 
is described In the next section* 

3 * LISP Functions for Congmmlcation wi th the Teletype 

rdflxt 1 The value of RIffTX is one S -express ion read from 

the teletype * 
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lis ten [ ] 



4. 

a. 



backtrace [ ] 

gcgag[x] 
cooprint[x] 
setbkl ] 



savbkf ] 
orsetqffona] 



ea 

print [x] 

LISP Functions 



LISTEN accepts doublets for evalcmote froas the 
teletype It: prints out their value. If an error 
occur 8, LXSTKN waits for a new doublet. When it 
receives STOP it returns NIL as ita value. 

Prints the backtrace at the time of the last error, 
unless there has been a garbage collection after 
the error . 

If x is NIL, there will be no garbage collector 
printout. The g.c. is initially silenced. 

If x is NIL, the compiler printout is reduced The 
conpiler is initially silenced. 

After this function has been executed, uvl interrupt 
signal wj.ll cause error [$$$ $] to be executed and 
the break to be reset. SETBK can only be used to 
a depth of 3 One should coafcine this with ERSETQ. 
An initial satbk has been perforated. 

Negates SETBK. 

Returns value? NIL if eval [form; a list] causes an 
error. Returns list [eval[form;alist]] otherwise. 
It is used w:,th SETBK. The alist used is the alist 
current when ERSETQ is called. 

Returns eval loyalist]. This is useful on the eval- 
quote level irhere it allow one to type the doublet 
E(00N8 X Y) instead of BVAL((CONS X T) NIL)* 

Prints the S expression x on the teletype. 

for CoaBRinication with the Disk 



Reading 

fileseek[x;y] 

read[ ] 



FXLESEEK opens disk file xjfor reading. Its value 
ia NIL. 

The value of READ is the next S -express ion read 
from the currently open file. 
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£lleen«3rd(x;y] 
evalre**d[xjy;s] 



load[0Lau.,*] 

run[xl 

execute[x;y] 



Closes file x y , which was opened by FILBSBEK. 

Reada doublets for evalquote froa fila x x until 
STOP la read, The entire file ia read before any 
double ta are evaluated* If a If SfBAK* the values 
of the doublets a«e printed oat* otherwise not. 
Thie may be used recursively, i.e., the file being 
evalread my use JOTAUtEAD* 

Perform evalr<ad[a i ;DATA;HIL] for each i. 

evalread [x; DfcXA; SPEAK] 

EXECUTE f irat tndaf inee the functlona of the IHLIST 
described In auction 5* Zt then perfoaae evalread 
[k;MTA;HI1»]* It next evaluates the function x 
with argument Jiet %* It returae this value after 
reading the files mi the IHLIST back in. 

b. Writing 

fllewrite[x;y;a] Creates a file jk £ containing an S~expreseion a« 

fileapnd[x;y;a] Appends S -express ton a to fila [i|). 

f iledeietelxjyl Deletes file x jr, 
5e Internal Changes to LISP 

1. ERROR doaa not print the index registers. Use a FN for Index 4, 

2» ERROR does not print a backtrace* 

3. The arguments of SVALQ90TE are wt printed « 

4* The cona counter is turned off* 

5. Every file brought in by LOAD or EVALREAD ia examined for DEPIHB 
stateflents. A list of the file 1 1 naae aftd the functions defined in 
it ia attached to the constant 12 LIST, 

6« LISP Functions for Debugging: 

breakltacjyja] The third argument la optional* If x evaluatee 

to true, than either BREAK or. If a third atgu- 
nsnt is given, the evaluation of z ia printed, 
BRRAJC1 then lit tana to the teletype for S^expres* 
slons* If STOP is received, it returna the evalu- 



breaktx;y;z] 



ation of £ M ita value . If RETURN a is received 
it returns the evaluation of a, Any other S-eacpres- 
slon received is evaluated and printed; BREAK1 then 
listens for another. Hote that expressions can be 
executed for their effect. 

Redefines EXFR 3t - (LAKBDA O^...) FORM) to 
be {UUBDkOijl 2 *.n) (BREAK1 y FORM *))« 

Redefines X to negate BREAK 



unbreakpt] 

7, Printing; 

There is a file PRIHT DATA i or print- 6 function definitions in a nice 
format. In this file there is a function prettyprintte] which will print out 
the definitions of the EXPR or P1XPR defined functions mentioned in the list 
e. The function printdlfile] wiM print the definitions in the file with first 
name file if It has been read in 

8* A LISP Program to Edit LIS P Functions in Time -Sharing 

Introduction 

This program makes it possible to debug LISP functions without returning 
to the system monitor . An update d version of the define statements of files 
which contain these functions ami which have been read into the LISP system 
is automatically kept on the dial* 

The program consists of several functions which are described below. The 
main function, EDIT, tears apart and rebuilds the EXPH of the function to be 
edited, EDIT is directed by a si ties of one word commands,. In the explanation, 
we let u be the S-expresslon which EDIT holds. This editor is contained in a 
file called EDIT DATA 



Functions 

edit [a J 



A 
D 

PRIHT 
MARK 



ti 



U 



atoslal s us* get[a;EXPR] 

T u:« get [car [a]; cadr[a]] 
Edit then accepts the following commands < 
carfu 



cdriu; 
u is printed 
u .is marks*! for return from within u* 



RJETflRH 
CHAIN 
an -jateger n 
APPEND a 
DELETE n 
LIST n 
DROP 

SDBST a 
USE a 
CONS a 
MATCH a 

stop 

RESTORE 



DEFINE 



OK 



output[a;B;y;P) 



«* Is reconstructed until s nark is reached. 

The car-cdr chain leading to u is printed, 

n con's are perforated toward reconstructing u„ 

us* append [a; w] 

The n'th subllet in the top level of « is deleted.. 

The first n elentnts of u are listed, 

The cons above u is deleted. 

us* subst taj8;ul 

us- subst r«;EIKi8SSIOH;a3 

us^cons taju] 

Edit finds the expression a within u, keeping track of 
its car-cdr address* us -a. An expression (A (B C D) B P> 
assay be abbreviated (A (B CUT) CUT). 

Edit returns FINISH and does not redefine the function,, 

Edit totally reconstructs u and redefines the function. 
It also creates cr updates disk ft es. For every file 
a B which was read in and which defined the function 
being edited, a file a EDIT with all function defined 
in a B as they esistt in the LISP System at that tiae is 
created or updated. Edit returns FINISH, 

DEFINE is the s«*e us RESTORE except that it does not 
update the disk* 

If edit receives m incorrect coamand, or it cannot 
carry out a MATCH or DELETE coanamd it reports thia and 
then ignores all further conmands until it receives OR, 

Creates disk file a B which contains the functionc defined 
la Y^» if Y^ has >een read in. 



filelistadd{Oj..„a );b;y] 

Adda functions o^ to those defines in b y and creates 
file b EDIT. It ibes this by altering the constant 
INLISTc 
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Coanent 

Since EDIT works with S-expressloos it is poor for correcting parenthesis 

errors. Most other corrections can be expressed by typing a short string of 

coanands on one line and then procedlng to the next exaaple. At first som 

of the strings are conceptually difficult to produce, but as the user learns 

the grajMar they become such easier, thus, EDIT Is best for those who nakc 
extensive use of LISP. 

Example 

The following output illustrates sane of the edit command*. 

resusKs lispc ty 

WAIT, 

VALUE 
NIL 

1. load ((edit tmk)> 
NIL 

2. edit (trnkl) print 

(LAMBDA (X Y) (CCHD ((HULL X T) <I f.CXWS (EPLS 
(CAR X) (CAR Y» (TRJK1 (CDR X) (CDR Y)))))) 

3. Hatch epls 1 print 
(EPLS (CAR X) (CAR T)) 

4. nark d print 
((CARX) (CART)) 

5. match car 1 subst (car expression) return print 
(EPLS (CAR (CAR X» (CAR T» 

6. restore 
PINXSH 

7. edie(trnkl) natch t 1 print 

(T {COWS (EPLS (CAR (CAR X)) (CAR f» (TRWi (CDR X) (CDR Y)))) 

8. cons (x y) print * 
((X T) T COKS (EPLS (CAR (CAR X» (CAR Y)) (TRHK1 (CDR X) (CDR Y)))) 

9. d drop 1 print 

((T (COHS (EPLS (CAR (CAR X)) (CAS Y)) (ttMUfCDR X) (CDR Y))))> 
10. stop 

FIKISH 
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1. We read in the f ilea edit data ■ m$- emk data. 

2. We want to adit tha inaction TUK1 d*f ined in trnk data. Edit graapa lta 
definition. 

3. Wa find a car-cdr chain down to IFIS, then retern ant ..cone and print. 

4. Wa nark onr place and take cdr of tfte ■niraeeLwi. 

5. Wa find tha fine CAR, go back ooa cc gat (Qui) and 
gat (GAR (Cat I)). 

6. Wa are f lnlahed with HOoU. 

7. We natch T and ratarn 1. 

8. QUI) ia coaa'd to thin eapreeeiea* 

9 . wa take cdr and than drop th* 0t f) . Oaing lap a level 
aee that the (I 1) la gone. 

10. We do not wieh to redefine the fenetiea. 



printing, we 
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by WlUleo Martin cod Tlaothy Bert 



The LISP System described la this —otasjrhiw is bolog tooted end 
debugged. This U o llot of differences vhieh ore currently noted 
between the system described in the noswrsiidun end the system currently 
available. 



1. The CTSS rnmwinit is CXB8T1 not LHP. 



2. The input pelrs for ouslouoto ess token fro* the file CTBST1 DATA. 
If e "saved* file is ■ode from «WT1 end none* X SATED, then the 
Input for this file will bo the file X DATA. 

3. Mo Initial sjgbjfc has been perforood. 
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